remove accidentially added debug prints
authorJoey Hess <joeyh@joeyh.name>
Tue, 23 Sep 2025 15:34:16 +0000 (11:34 -0400)
committerJoey Hess <joeyh@joeyh.name>
Tue, 23 Sep 2025 15:34:16 +0000 (11:34 -0400)
Annex/Import.hs

index 06c6abab92e24ae7917764774a961fc43f51627e..b1ace3468efbcbc5f0edf724812a25e5a871a835 100644 (file)
@@ -294,7 +294,6 @@ buildImportTrees
 buildImportTrees basetree msubdir addunlockedmatcher (ImportedFull imported) = 
        buildImportTreesGeneric (convertImportTree addunlockedmatcher) basetree msubdir imported
 buildImportTrees basetree msubdir addunlockedmatcher (ImportedDiff (LastImportedTree oldtree) imported) = do
-       liftIO $ print $ importableContents imported
        importtree <- if null (importableContents imported)
                then pure oldtree
                else applydiff
@@ -309,7 +308,6 @@ buildImportTrees basetree msubdir addunlockedmatcher (ImportedDiff (LastImported
                        (importableContents imported)
                newtreeitems <- catMaybes <$> mapM mktreeitem new
                let removedfiles = map (mkloc . fst) removed
-               liftIO $ print ("removed", removedfiles)
                inRepo $ adjustTree
                        (pure . Just) 
                        -- ^ keep files that are not added/removed the same
@@ -509,7 +507,7 @@ data ImportResult t
 data Diffed t
        = DiffChanged t
        | DiffRemoved
-       deriving (Eq, Show)
+       deriving (Eq)
 
 data Imported
        = ImportedFull (ImportableContentsChunkable Annex (Either Sha Key))
@@ -579,9 +577,7 @@ importChanges remote importtreeconfig importcontent thirdpartypopulated importab
                (diff, cleanup) <- inRepo $ Git.DiffTree.diffTreeRecursive
                        prevcidtree
                        currcidtree
-               liftIO $ print (diff, prevcidtree, currcidtree)
                let (removed, changed) = partition isremoval diff
-               liftIO $ print (removed, changed)
                let mkicchanged ti = do
                        v <- M.lookup (Git.DiffTree.dstsha ti) cidtreemap
                        return (mkloc ti, v)